home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / MacPerl 5.1.3 / Mac_Perl_513_src / perl5.002 / minimod.pl < prev    next >
Encoding:
Text File  |  1996-04-07  |  3.1 KB  |  139 lines  |  [TEXT/MPS ]
  1. # minimod.PL writes the contents of miniperlmain.c into the module
  2. # ExtUtils::Miniperl for later perusal (when the perl source is
  3. # deleted)
  4. #
  5. # It also writes the subroutine writemain(), which takes as its
  6. # arguments module names that shall be statically linked into perl.
  7. #
  8. # Authors: Andreas Koenig <k@franz.ww.TU-Berlin.DE>, Tim Bunce
  9. #          <Tim.Bunce@ig.co.uk>
  10. #
  11. # Version 1.0, Feb 2nd 1995 by Andreas Koenig
  12.  
  13. print <<'END';
  14. # This File keeps the contents of miniperlmain.c.
  15. #
  16. # It was generated automatically by minimod.PL from the contents
  17. # of miniperlmain.c. Don't edit this file!
  18. #
  19. #       ANY CHANGES MADE HERE WILL BE LOST! 
  20. #
  21.  
  22.  
  23. package ExtUtils::Miniperl;
  24. require Exporter;
  25. @ISA = qw(Exporter);
  26. @EXPORT = qw(&writemain);
  27.  
  28. $head= <<'EOF!HEAD';
  29. END
  30.  
  31. open MINI, "miniperlmain.c";
  32. while (<MINI>) {
  33.     last if /Do not delete this line--writemain depends on it/;
  34.     print;
  35. }
  36.  
  37. print <<'END';
  38. EOF!HEAD
  39. $tail=<<'EOF!TAIL';
  40. END
  41.  
  42. while (<MINI>) {
  43.     print;
  44. }
  45. close MINI;
  46.  
  47. print <<'END';
  48. EOF!TAIL
  49.  
  50. sub writemain{
  51.     my(@exts) = @_;
  52.  
  53.     my($pname);
  54.     my($dl) = canon('/','DynaLoader');
  55.     print $head;
  56.  
  57.     foreach $_ (@exts){
  58.     my($pname) = canon('/', $_);
  59.     my($mname, $cname);
  60.     ($mname = $pname) =~ s!/!::!g;
  61.     ($cname = $pname) =~ s!/!__!g;
  62.     print "EXTERN_C void boot_${cname} _((CV* cv));\n";
  63.     }
  64.  
  65.     my ($tail1,$tail2) = ( $tail =~ /\A(.*\n)(\s*\}.*)\Z/s );
  66.     print $tail1;
  67.  
  68.     print "    char *file = __FILE__;\n";
  69.     foreach $_ (@exts){
  70.     my($pname) = canon('/', $_);
  71.     my($mname, $cname, $ccode);
  72.     ($mname = $pname) =~ s!/!::!g;
  73.     ($cname = $pname) =~ s!/!__!g;
  74.     print "\t{\n";
  75.     if ($pname eq $dl){
  76.         # Must NOT install 'DynaLoader::boot_DynaLoader' as 'bootstrap'!
  77.         # boot_DynaLoader is called directly in DynaLoader.pm
  78.         $ccode = "\t/* DynaLoader is a special case */\n
  79. \tnewXS(\"${mname}::boot_${cname}\", boot_${cname}, file);\n";
  80.         print $ccode unless $SEEN{$ccode}++;
  81.     } else {
  82.         $ccode = "\tnewXS(\"${mname}::bootstrap\", boot_${cname}, file);\n";
  83.         print $ccode unless $SEEN{$ccode}++;
  84.     }
  85.     print "\t}\n";
  86.     }
  87.     print $tail2;
  88. }
  89.  
  90. sub canon{
  91.     my($as, @ext) = @_;
  92.     foreach(@ext){
  93.         # might be X::Y or lib/auto/X/Y/Y.a
  94.         next if s!::!/!g;
  95.         s/^:(lib|ext):(auto:)?//;
  96.         s/:\w+\.\w+$//;
  97.         s,:,/,g;
  98.     }
  99.     grep(s:/:$as:, @ext) if ($as ne '/');
  100.     @ext;
  101. }
  102.  
  103. 1;
  104. __END__
  105.  
  106. =head1 NAME
  107.  
  108. ExtUtils::Miniperl, writemain - write the C code for perlmain.c
  109.  
  110. =head1 SYNOPSIS
  111.  
  112. C<use ExtUtils::Miniperl;>
  113.  
  114. C<writemain(@directories);>
  115.  
  116. =head1 DESCRIPTION
  117.  
  118. This whole module is written when perl itself is built from a script
  119. called minimod.PL. In case you want to patch it, please patch
  120. minimod.PL in the perl distribution instead.
  121.  
  122. writemain() takes an argument list of directories containing archive
  123. libraries that relate to perl modules and should be linked into a new
  124. perl binary. It writes to STDOUT a corresponding perlmain.c file that
  125. is a plain C file containing all the bootstrap code to make the
  126. modules associated with the libraries available from within perl.
  127.  
  128. The typical usage is from within a Makefile generated by
  129. ExtUtils::MakeMaker. So under normal circumstances you won't have to
  130. deal with this module directly.
  131.  
  132. =head1 SEE ALSO
  133.  
  134. L<ExtUtils::MakeMaker>
  135.  
  136. =cut
  137.  
  138. END
  139.